home *** CD-ROM | disk | FTP | other *** search
/ IRIS Performer 2.2 Friends Demo / SGI IRIS Performer 2.2 Friends Demo.iso / friends / openworlds / tix / StdShell.tcl < prev    next >
Text File  |  1997-11-22  |  764b  |  35 lines
  1. tixWidgetClass tixStdDialogShell {
  2.     -classname TixStdDialogShell
  3.     -superclass tixDialogShell
  4.     -method {}
  5.     -flag   {
  6.     -cached
  7.     }
  8.     -configspec {
  9.     {-cached cached Cached {}}
  10.     }
  11. }
  12.  
  13. proc tixStdDialogShell::ConstructWidget {w} {
  14.     upvar #0 $w data
  15.  
  16.     tixChainMethod $w ConstructWidget
  17.     set data(w:btns)   [tixStdButtonBox $w.btns]
  18.     set data(w_tframe) [frame $w.tframe]
  19.  
  20.     pack $data(w_tframe) -side top -expand yes -fill both
  21.     pack $data(w:btns) -side bottom -fill both
  22.  
  23.     tixCallMethod $w ConstructTopFrame $data(w_tframe)
  24. }
  25.  
  26.  
  27. # Subclasses of StdDialogShell should override this method instead of
  28. # ConstructWidget.
  29. #
  30. # Override : always
  31. # chain    : before
  32. proc tixStdDialogShell::ConstructTopFrame {w frame} {
  33.     # Do nothing
  34. }
  35.